home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
JCSM Shareware Collection 1996 September
/
JCSM Shareware Collection (JCS Distribution) (September 1996).ISO
/
tutorial
/
trac.zip
/
FIGII-5.OBJ
< prev
next >
Wrap
Text File
|
1990-01-25
|
896b
|
28 lines
0010 401901 Read value for N
0011 001901 Load N into A
0012 240016 If negative go to stop
0013 250016 If zero go to stop
0014 021801 Subtract 13
0015 240017 If negative skip around stop
0016 500000 Stop
0017 001802 Load 1
0018 031902 Store at F
0019 001803 Load 2
0020 031804 Store at K
0021 021901 Subtract N
0022 240026 Jump, if negative, to update F
0023 250026 Jump, if zero, to update F
0024 411901 Print
0025 260010 Branch back to beginning
0026 001902 Load F
0027 151804 Multiply by K
0028 031902 Store at F
0029 001804 Load K
0030 011802 Add 1
0031 031804 Store at K
0032 260021 Branch to test if done
1801 13 Constant 13
1802 1 Constant 1
1803 2 Constant 2
9999 000010 End of code